Option Explicit
Sub D_Sample039()
    Dim myWb       As Workbook
    Dim myFileName As String
    myFileName = ThisWorkbook.Path & "\temp3.xls"           'wɮצW
    Set myWb = Workbooks(1)                              'Nï
    'ǳƨ즹
    myWb.SaveAs Filename:=myFileName, _
     WriteResPassword:="password"                            'wKX
    Set myWb = Nothing                                     '
End Sub

